
PROC SCRE9
@ 9,0 CLEAR TO 24,79
@ 10,  2  SAY "MEDICAL PROCEDURES                                                PRICE"
@ 20,  1  SAY "TO VIEW ALL PROCEDURES LABORATORY TEST ENTERED IN THIS CASE,  PRESS " + chr(24)+chr(25)
@ 21,  1  SAY "IF CORRECT TYPE :   Esc"
SET COLO TO R+*/B
@ 23,  5  SAY "     TO DELETE ONE ITEM, PRESS ENTER              "
SET COLO TO BG+/B
@  9,  0  TO 19, 79
@ 11,  7  TO 18,  7
@ 10, 54  TO 18, 54
@ 10, 64  TO 18, 64
@ 22, 53  TO 24, 79    DOUBLE
@ 22,  0  TO 24, 51    DOUBLE
@ 22,  1  TO 24, 50    DOUBLE
@ 22,  2  TO 24, 49    DOUBLE
@ 24,  3  TO 24, 48    DOUBLE
@ 22,  3  TO 24, 48    DOUBLE


PROC SCRE10
@ 20,0 CLEAR TO 24,79
SET CURSOR ON
@ 20,  1  SAY "DO YOU NEED TO REPLACE THE DELETED ITEM ?     "
@ 23, 12  SAY "                                           TOTAL : Rp           "
@ 22, 53  TO 24, 79    DOUBLE
@ 19, 44  TO 21, 50    DOUBLE


proc LABBOX2

parameter brs,kol,key1,key2,file,field1,FIELD3,index1,index2,pj1,pj2,cond,msg
set func 1 to chr(171)+spac(pj1-1)
tmpbox=savescreen(0,0,24,79)
var=&key1
*****
ul='Y'
  do while ul='Y'
    &key1=var
    set colo to
    @ 23,09 clea to 23,69
    set colo to bg+
         restscreen(0,0,24,79,tmpbox)
         proses='Y'
         set colo to n/b
         set colo to r+/b
         set colo to
         urut=1
         set colo to gr+/b
               select &file
               plh='fil1'
         set inte off
            count to cnt
            cnt=cnt+1
            declare code[cnt]
            declare name[cnt]
            declare fil1[cnt]
            declare fil2[cnt]
            go top
            cr=0
            do while .not. eof()
              cr=cr+1
              code[cr]=&field3
              fil1[cr]=&FIELD3+'. '+&field1+spac(10-pj1+1)
              skip
            enddo
            cr=cr+1
            code[cr]='X'
            fil1[cr]='X. Exit'
            set colo to w+/b


            set colo to bg+/b
             @ 9,0 to 24,23 double
            set colo to gr+/b
            set colo to BG+/B,W+/N
            inkey()
            pilih=achoice(11,2,22,21,fil1)
            k=lastkey()
            IF k=13
              set colo to
              &key1=code[pilih]
*              restscreen(0,0,24,79,tmpbox)
              ul='N'
            ELSE

              IF LASTKEY() = 19
                 KEYBOARD CHR(219)

              ELSE
                 IF LASTKEY()=27
                   UL='Y'
                   LOOP
                 ELSE
                   * send character to multibox
                   KEYBOARD CHR(LASTKEY())
                 ENDIF
              ENDIF
            ENDIF
  enddo
select &file
set function 1 to space(pj1)
set inten on
return


proc LABBOX3

parameter brs,kol,key1,key2,file,field1,FIELD2,FIELD3,FIELD4,index1,index2,pj1,pj2,cond,msg
set func 1 to chr(171)+spac(pj1-1)
tmpbox=savescreen(0,0,24,79)
var=&key1
VAR2=&KEY2
ul='Y'
  do while ul='Y'
    &key1=var
    &KEY2=VAR2
    set colo to
    @ 23,09 clea to 23,69
    set colo to bg+
         restscreen(0,0,24,79,tmpbox)
         proses='Y'
         set colo to n/b
         set colo to r+/b
         set colo to
         urut=1
         set colo to gr+/b
               select &file
               plh='fil1'
         set inte off
            count to cnt
            cnt=cnt+2
            declare code[cnt]
            declare name[cnt]
            declare fil1[cnt]
            declare fil2[cnt]
            go top
            cr=0
            do while .not. eof()
              cr=cr+1
              DAT1=&FIELD2
              DAT2=&FIELD3
              code[cr]=&FIELD2+&FIELD3+&FIELD4
              fil1[cr]=&FIELD2+&FIELD3+&FIELD4+' '+&field1+spac(10-pj1+1)
              skip
            enddo
            cr=cr+1
            code[cr]=dat1+dat2+'99'
            FIL1[cr]=dat1+dat2+'99'+' Unlisted Procedures'
            CR=CR+1
            code[cr]='EXIT'
            FIL1[cr]='EXIT TO SUB AREA'

            set colo to w+/b


            set colo to bg+/b
            @  9, 22  TO 16, 51    DOUBLE
            set colo to gr+/b
            set colo to BG+/B,W+/N
            inkey()
            pilih=achoice(10,23,15,50,fil1)
            k=lastkey()
            IF k=13
              set colo to
              VARI=CODE[PILIH]
              &KEY1=SUBSTR(VARI,1,4)
              SCP=SUBSTR(&KEY1,1,2)
              &KEY2=SCP+'99'
              ul='N'
            ELSE

              IF LASTKEY() = 19
                 KEYBOARD CHR(219)

              ELSE
                 IF LASTKEY()=27
                   UL='Y'
                   LOOP
                 ELSE
                   KEYBOARD CHR(LASTKEY())
                 ENDIF
              ENDIF
            ENDIF
  enddo
select &file
set function 1 to space(pj1)
set inten on
return